PROGRAM creationClient;

USES Types;

PROCEDURE creationClient(ID_Client : INTEGER; VAR tabClients : TTabClient);

VAR
	clientTemp : Tclient;

BEGIN
	//initialise clientTemp
	clientTemp.nom:='';
	clientTemp.prenom:='';
	clientTemp.naissance:='';
	clientTemp.politesse:='';
	clientTemp.adresse:='';
	clientTemp.npa:='';
	clientTemp.localite:='';
	clientTemp.telephone:='';


   //Saisie des données du client
	WHILE(clientTemp.nom = '') DO
	BEGIN																//Définition du nom du client
		WRITELN('Entrez un nom');
		READLN(clientTemp.nom);
		IF (clientTemp.nom = '') THEN
			WRITELN('Il est obligatoire de saisir un nom');
	END;


	WHILE (clientTemp.prenom = '')	DO	
	BEGIN																//Définition du prénom du client
		WRITELN('Entrez un prenom');
		READLN(clientTemp.prenom);
		IF (clientTemp.prenom = '') THEN
			WRITELN('Il est obligatoire de saisir un prenom');
	END;
	
	WHILE(clientTemp.naissance = '')	DO
	BEGIN																//Définition de la date de naissance du client
		WRITELN('Entrez une date de naissance');
		READLN(clientTemp.naissance);
		IF (clientTemp.naissance = '') THEN
			WRITELN('Il est obligatoire de saisir une date de naissance');
	END;

	WHILE(clientTemp.politesse = '')	DO
	BEGIN																//Définition de la formule de politesse du client
		WRITELN('Entrez la politesse de la personne');
		READLN(clientTemp.politesse);
		IF (clientTemp.politesse = '') THEN
			WRITELN('Il est obligatoire de saisir une politesse');
	END;

	WHILE(clientTemp.adresse = '')	DO
	BEGIN																//Définition de l'adresse du client
		WRITELN('Entrez une adresse');
		READLN(clientTemp.adresse);
		IF (clientTemp.adresse = '') THEN
			WRITELN('Il est obligatoire de saisir une adresse');
	END;

	WHILE(clientTemp.npa = '')	DO	
	BEGIN																//Définition du code postal du client
		WRITELN('Entrez un code postal');
		READLN(clientTemp.npa);
		IF (clientTemp.npa = '') THEN
			WRITELN('Il est obligatoire de saisir un code postal');
		
	END;

	WHILE(clientTemp.localite = '')	DO
	BEGIN																//Définition de la localité du client
		WRITELN('Entrez une localite');
		READLN(clientTemp.localite);
		IF (clientTemp.localite = '') THEN
			WRITELN('Il est obligatoire de saisir un lieu de residence');
	END;

	WHILE(clientTemp.telephone = '') DO	
	BEGIN												//Définition du numéro de téléphone du client
		WRITELN('Entrez un numero de telephone');
		READLN(clientTemp.telephone);
		IF (clientTemp.telephone = '') THEN
			WRITELN('Il est obligatoire de saisir un numero de telephone');
	END;
END;


VAR
	ID_Client : INTEGER;
	tabClients : TTabClient;

BEGIN
	creationClient(ID_Client,tabClients);
END.
